home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 April / CICA MS Windows - April 1993.iso / unzipped / toolbook / child / parent.tbk (.txt) < prev   
Asymetrix ToolBook File  |  1991-11-13  |  15KB  |  277 lines
  1.     linkDLL "user"
  2.         WORD SetParent(
  3.         LONG SetWindowWord(
  4. ),INT,
  5.     unlinkDLL "
  6. enterBook
  7. leaveBook
  8. enterBook
  9. SetParent
  10. SetWindowWord
  11. leaveBook
  12. System
  13.     linkDLL "user"
  14.         WORD SetParent(
  15. FindWindow(STRING,
  16.         INT ShowWindow(
  17. BringWindowToTop(
  18. aGetWindowWord(
  19. kernel"
  20. GlobalAlloc(
  21. ,DWORD)
  22. GlobalFree(
  23.         POINTER GlobalLock(
  24. Yield()
  25. GlobalUnlock(
  26.     unlinkDLL "
  27. enterBook
  28. leaveBook
  29. enterBook
  30. SetParent
  31. FindWindow
  32. ShowWindow
  33. BringWindowToTop
  34. GetWindowWord
  35. SetWindowWord
  36. kernel
  37. GlobalAlloc
  38. GlobalFree
  39. GlobalLock
  40. Yield
  41. GlobalUnlock
  42. leaveBook
  43. kernel
  44. makeChild
  45.     linkDLL "tbkwin.dll"
  46.         STRING clientFromPage(
  47. ,INT,
  48.  toolbook 
  49. M"testbook.
  50. childHandle 
  51. style 
  52. getWindowWord(
  53. $,-14)
  54. H1+2+4+8+192
  55. setWindowWord(
  56. Z,-14,
  57. ,sysMagnification,
  58. xSize
  59. ySize
  60. setParent(
  61. MoveWindow(
  62. ,0,0,
  63.     unlinkDLL "
  64. buttonUp
  65. buttonUp
  66. tbkwin.dll
  67. clientFromPage
  68. sysWindowHandle
  69. testbook.tbk
  70. getWindowWord
  71. setWindowWord
  72. hide menuBar
  73. testbook.tbk
  74. hide scrollBar
  75. testbook.tbk
  76. size of this book
  77. testbook.tbk
  78. clientFromPage
  79. setParent
  80. MoveWindow
  81. tbkwin.dll
  82. ySize
  83. xSize
  84. style
  85. childHandle
  86. toolbook
  87. Make Child
  88. getWindowWord
  89. 4childWindow
  90. blah" 
  91.  toolbook
  92. c"Hi there"
  93. ""Hello 
  94. ""Hi 
  95. buttonUp
  96. buttonUp
  97. text of field blah
  98. Hi there
  99. put "Hello again" into text of field blah
  100. put "Hi there" into text of field blah
  101. toolbook
  102. childWindow
  103. executeRemote
  104. parentField
  105. Hello againn
  106. reset
  107. "testbook.tbk"
  108. buttonUp
  109. buttonUp
  110. testbook.tbk
  111. Set Up Test
  112. "testbook.tbk"
  113. H400,0" 
  114.  toolbook 
  115. buttonUp
  116. buttonUp
  117. testbook.tbk
  118. move mainWindow by 400,0
  119. testbook.tbk
  120. toolbook
  121. toolbook
  122. myBounds
  123. delta
  124. Set Up Test
  125.     linkDLL "user"
  126.         WORD SetParent(
  127.         LONG SetWindowWord(
  128. ),INT,
  129.     unlinkDLL "
  130. enterBook
  131. leaveBook
  132. enterBook
  133. SetParent
  134. SetWindowWord
  135. leaveBook
  136. System
  137.     linkDLL "user"
  138.         WORD SetParent(
  139. FindWindow(STRING,
  140.         INT ShowWindow(
  141. BringWindowToTop(
  142. aGetWindowWord(
  143. WMoveWindow(
  144. kernel"
  145. GlobalAlloc(
  146. ,DWORD)
  147. GlobalFree(
  148.         POINTER GlobalLock(
  149. Yield()
  150. GlobalUnlock(
  151.     unlinkDLL "
  152. enterBook
  153. leaveBook
  154. enterBook
  155. SetParent
  156. FindWindow
  157. ShowWindow
  158. BringWindowToTop
  159. GetWindowWord
  160. SetWindowWord
  161. MoveWindow
  162. kernel
  163. GlobalAlloc
  164. GlobalFree
  165. GlobalLock
  166. Yield
  167. GlobalUnlock
  168. leaveBook
  169. kernel
  170. makeChild
  171.     linkDLL "tbkwin.dll"
  172.         STRING clientFromPage(
  173. ,INT,
  174.  toolbook 
  175. M"testbook.
  176. childHandle 
  177. style 
  178. getWindowWord(
  179. $,-14)
  180. H1+2+4+8+192
  181. setWindowWord(
  182. Z,-14,
  183. ,sysMagnification,
  184. xSize
  185. ySize
  186. setParent(
  187. MoveWindow(
  188. ,0,0,
  189.     unlinkDLL "
  190. buttonUp
  191. buttonUp
  192. tbkwin.dll
  193. clientFromPage
  194. sysWindowHandle
  195. testbook.tbk
  196. getWindowWord
  197. setWindowWord
  198. hide menuBar
  199. testbook.tbk
  200. hide scrollBar
  201. testbook.tbk
  202. size of this book
  203. testbook.tbk
  204. clientFromPage
  205. setParent
  206. MoveWindow
  207. tbkwin.dll
  208. ySize
  209. xSize
  210. style
  211. childHandle
  212. toolbook
  213. Make Child
  214. getWindowWord
  215. 4childWindow
  216. blah" 
  217.  toolbook
  218. c"Hi there"
  219. ""Hello 
  220. ""Hi 
  221. buttonUp
  222. buttonUp
  223. text of field blah
  224. Hi there
  225. put "Hello again" into text of field blah
  226. put "Hi there" into text of field blah
  227. toolbook
  228. childWindow
  229. executeRemote
  230. parentField
  231. Hi thereainn
  232. reset
  233. ZmyBounds,delta
  234. N(.5 * ((
  235. -) - (
  236.  toolbook
  237. yield()
  238. .exe testbook.tbk"
  239. " && 
  240. " &&\
  241. buttonUp
  242. buttonUp
  243. send exit
  244. yield
  245. toolbook.exe testbook.tbk
  246. get yield()
  247. bounds of mainWindow
  248. executeRemote
  249. set bounds of mainWindow to
  250. toolbook
  251. myBounds
  252. delta
  253. Set Up Test
  254. LIZFARROTBK 
  255. FFILE       
  256. PRNFILE TXT 
  257. SEND2PRNBAT 
  258. HLS2RGB ICO 
  259. PAULJOHNTBK 
  260. MUSTHAVETBK 
  261. NOFUCK  TBK 
  262. DRTYWRDSTBK 
  263. SIZEWNDWTBK 
  264. SETBEEP TBK 
  265. BEEP    TBK 
  266. HLS2RGB TBK 
  267. WILDTHNGTBK 
  268. GETCARETTBK 
  269. OVERTYPETBK 
  270. .          
  271. ..         
  272. SETUP   INF 
  273. KERNEL  EXE 
  274. GDI     EXE 
  275. USER    EXE 
  276. WIN     CNF 
  277.